(xml-parse-tag): Avoid overwriting node-name.

diff --git a/lisp/xml.el b/lisp/xml.el
index 408c13ab39b898f0b5511c19ad6c3884c3eec11d..98241750c7320e20a7296bc8d22a6c0cb0cd968f 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -325,10 +325,8 @@ Returns one of:
              (push (cons (cdar attr) (intern (concat ":" (cdr attr))))
                    xml-ns))))
 
-        ;; expand element names
-        (setq node-name (list (xml-maybe-do-ns node-name "" xml-ns)))
+        (setq children (list attrs (xml-maybe-do-ns node-name "" xml-ns)))
 
-        (setq children (list attrs node-name))
        ;; is this an empty element ?
        (if (looking-at "/>")
        (progn